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Guida per l’input dei programmi versioni 
VIC SO e C64 


Notate che i listati contengono paro¬ 
le' racchiuse tra parentesi graffe f /. 
Tali parole rappresentano caratteri di 
controllo come mostrato nel sotto¬ 
stante riquadro. Se sono precedute da 
un numero, questo indica il numero di . 
volte che quel tasto deve essere pre¬ 
muto. Se il simbolo è sottolineato de¬ 
ve essere premuto contemporanea¬ 
mente a SHIFT mentre se è racchiuso 
da (()] deve essere premuto con¬ 


temporaneamente al tasto COMMO¬ 
DORE Inoltre, se tra parentesi graffa 
si trova un carattere alfabetico so¬ 
litario" questo oovrà essere pre¬ 
muto contemporaneamente al tasto 
CTRL 

Con questo sistema di codifica, sarà 
molto più agevole copiare i listati sen¬ 
za faticose e dubbie interpretazioni di 
caratteri grafici e di controllo dei cur¬ 
sore o dei colori 


(CLR } 

(HOME| 
(SU) - 
idìV ) 
ì SIN } 

{ DF.S * 
t RVS ) 
i OFF } 

( BLK ) 
(WHT) 
|RRD) 





c 

(CYN ) 

no 


(<7>| 

HO 

h> 

(PUR) 

aia 

m 

(<8>| 

HO 

n 

(CRN) 

— m 

□ 

(FI) 

ai 

■ ■ 

(BLU) 

omo 

□ 

(F2) 

m 

il 

(YEL) 

aa 

IO 

i P3 ) 

KB 

a 

(<1>I 

DB 

□ 

(F4) 

CD 

i 

(<2>) 

aa 

IE 

( F5 ) 

KB 


1 < 3 > | 

aa 

O 

(F6) 

CD 

□ 

l<4>| 

ao 

1 ' 1 

(F7) 

DB 

ET 

(<5>| 

aa 

E 

( F8 ) 

CD 

0 

I<6>! 

aa 

■1 





Per ricevere gl arretrati di compi ar e I seguente tagliando: 

K 


. Compita re ed inviare in busta chiusa a: 

J.SOft viale Reste*, 5 - 80184 Milano - Tei. 08/6888888-683797-6880641-8-3 


Nome_ 

Cognome___ 

Indirizzo ____ 

CAP_ Città_ Prov 


Desidero ricevere i seguenti numeri arretrati di 
iV/fj dedicato a - 


Anno 
Anno _ 


a L 2 000 cad per un totale di L. 


a mezzo 


□ assegno allegato □ contanti allegati 

X . 
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Caduta Ubera (3K RAM) 

di F Rendali trad e adatt di Stefano Albarelli 

19 

Kentucky Derby 

di A Hotder trad e adatt di P Maffei 

9 

la diga 

di E Tebber trad. e adatt di M Anocok 

99 

Fan—Mlcot 

di R Perkins trad e adatt. di S. Albarelli 



96 

Tombola 

di Antonio Colonna 


CIÒK-plUS/4 


1# 


di P Marker trad e adatt di S. Albarelli 



Imparino le dkczlonl 

di S Kalior trad e adatt di F. Sarona 
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Stop Biig 

Se non l'hai già fatto, memorizza e 
salva su nastro o disco la versione 
di Stop Bug per il tuo computer 
Questo programma ti permette, 
ima volta caricato ed attivato con 
Run, di digitare i listati di Papersoft 
Commodore senza introdurre erro¬ 
ri di battitura. ', 

Come avrai notato, le linee dei no¬ 
stri programmi terminano con la 
parola "-.rem" seguita da un nume¬ 
ro, detto checksum,- non copiare 
questa parte della linea, che serve 
solo per tua informazione. Quan¬ 
do Stop Bug è in funzione, infatti, 
tutte le volte che premi il tasto Re¬ 
turn dopo aver digitato una linea 
di programma, appare nell'angolo 
superiore sinistro dello schermo un 
numero, che deve coincidere con 
il checksum da noi pubblicato 
(sempre che tu non abbia usato 


comandi abbreviati, come ? per 
Print). 

Usando Stop Bug tieni conto del 
fatto che gli spazi non influiscono 
sui checksum, per cui fai particola¬ 
re attenzione alle istruzioni Print 
dove sono spesso presenti. Inoltre 
eventuali inversioni di caratteri non 
vengono segnalate 
Un altro metodo per utilizzare 
Stop Bug, soprattutto se sei abitua¬ 
to ad usare le abbreviazioni dei 
comandi Basic, è controllare i che¬ 
cksum listando il programma e bat¬ 
tendo Return su ogni linea 
Se intendi sospendere il lavoro di 
digitazione, puoi salvare su nastro 
o disco il programma che stai me¬ 
morizzando senza che Stop Bug 
interferisca, al momento di ripren¬ 
dere il lavoro ricordati però di cari¬ 
care ed attivare Stop Bug prima di 
ricaricare il tuo programma 
Per disabilitare Stop Bug premi 
Run/Stop e Restore (su C64 e Vie 
20) oppure Run/Stop e Reset (su 
CIÒ e Plus/4) Per riattivarlo batti 

SYS PEEK(S6)*256 per il VIC 20, 
SYS 16128 per il 06 e il PLUS/4, 
SYS 40704 per il C 64 



STOP SUO per C44 t VIC SO 

1 00 POKE55,0:POKE56,PEEK(56)-1sR-PEEK(56)* 2 56 s PRINT"{CLR} 
ATTENDERE PREGO..." 

110 FORI-RTOR+132sREADAsCK-CK+AsIFA« 999THENA«R/256 
120 POKEI,A sNEXT 

130 IFCK022689THENPRINT" {GIU ' }ERRORE NELLE ISTRUZIONI DA 
TA"s END 

140 SYS(R)SPRINT"{CLR}{ 2 GIU'}{RVS}STOP BUG{OFF} ATTIVAT 
O. • NEW 

200 DATAI 73,36,3,201 ,32,208,1 ,96,141 
210 DATA33,999,173,37,3,1 41 ,34,999,169 
220 DATA32,141,36,3,169,999,141,37,3 
230 DATAI 69,0,133,254,96,32,87,241,133 
240 DATA251 ,1 34',252,1 32,253,8,201,1 3,240 
250 DATAI 7,201 ,32,240,5,24,101 ,254,133 
260 DATA254,165,251,166,252,164,253,40,96 
270 DATAI 69,13,32,210,255,165,21 4,141 ,251 
280 DATA3,206,251,3,169,0,133,216,169 
290 DATAI 9,32,210,255,169,18,32,210,255 
300 DATAI 69,58,32,21 0,255,166,254,169,0 
310 DATAI 33,254,172,33,999,192,87,208,6 
320 DATA32,205,189,76,117,999,32,205,221 
330 DATAI 69,32,32,210,255,32,210,255,173 
340 DATA251,3,133,214,76,55,999 


STOP SU « per CIÒ € PLUS/4 

100 POKE55,0:POKE56,63SPRINT"{CLR}ATTENDERE PREGO..." 

110 FORI*16128T016260sREADAsCK*CK+AsPOKEI, AsNEXT 
120 IFCKOl 4248THENPRINT" {GIU ’ }ERRORE NELLE ISTRUZIONI DA 
TA"s END 

130 SYS!6128SPRINT"{CLR}{ 2 GIU’}{RVS}STOP BUG{OFF} ATTIV 
ATO."S NEW 

200 DATAI 73,34,3,201,32,208,1 ,96,141 
210 DATA33,63,173,35,3,141,34,63,169 
220 DATA32,141 ,34,3,169,63,141 ,35,3 
230 DATAI 69,0,133,6,96,32,232,235,133 
240 DATA3,134,4,132,5,8,201,13,240 
250 DATAI 7,201,32,240,5,24,101,6,133 
260 DATA6,165,3,166,4,164,5,40,96 
270 DATAI 69,13,32,21 0,255,165,205,141,251 
280 DATA3,206,251,3,169,0,133,207,169 
290 DATAI 9,32,210,255,169,18,32,210,255 
300 DATAI 69,58,32,210,255,166,6,169,0 
310 DATAI 33,6,172,33,63,192,232,208,6 
320 DATA32,95,164,76,117,63,32,7,208 
330 DATAI 69,32,32,210,255,32,210,255,173 
340 DATA251,3,133,205,76,55,63 



Caduta libera 



3K RAM 




rv, r-~- • 


Questo è un gioco per due perso¬ 
ne, ognuna delle quali controlla un 
omino,- l’obiettivo è farlo cadere fi¬ 
no alla base dello schermo, facen¬ 
dogli attraversare delle pareti oriz¬ 
zontali mobili. Ci spieghiamo me¬ 
glio: lo schermo contiene un muro 
formato da tante file di mattoni, 
nelle quali vi sono però dei buchi; 
tutti e due gli omini partono dalla 
sommità del muro, e i giocatori 
possono far scorrere lateralmente 
le righe di mattoni. Per far ciò 
ognuno di essi dispone di una frec¬ 
cia, che deve posizionare in corri¬ 
spondenza della parete che desi¬ 
dera far scorrere. Il giocatore sini¬ 
stro usa i tasti 2-A per muovere la 


freccia in su e in giù, e i tasti Q-W 
per spostare a sinistra e a destra la 
riga di mattoni selezionata,- il gio¬ 
catore destro, analogamente, usa i 
tasti 0-L per la freccia e O-P per i 
mattoni. 

Il vincitore è colui che riesce per 
primo a far raggiungere al proprio 
omino la base dello schermo, dove 
si trova un buco che si muove con¬ 
tinuamente, pronto ad accogliere il 
“precipitato “. Alla fine di ogni par¬ 
tita si può scegliere se smettere, ri¬ 
cominciare da capo o proseguire 
con lo schermo successivo. 
Questo gioco di intelligenza e stra¬ 
tegia richie l'espansione da 3K. 


1 POKE36878,15 :rem 2 

2 POKE36879,8:PRINT"{WHT}{CLR}":POKE657,128:POKE650,128 

:rem 22 

3 DEFFNP(XX)=PEEK(7680+XX+ (YY*22)) :rem 6 

5 GOSUB9000 . :rem 126 

15 PRINT"{CLRjDIGITA I NOMI DEI{ 5 SPAZI}GIOCATORIPRIN 

T" {GIU ' GIOCATORE SINISTRO: ":INPUTB$ :rem 55 

16 PRINT"{GIU'JGIOCATORE DESTROINPUTC$ :rem 34 

17 POKE36869, 255 : PRINT" {CLR} { 11 GIU'H 7 DES } {RVS } ATTEND 

I!" : rem 207 

20 GOSUB8000 :rem 170 

30 GOSUB7000 :rem 170 

40 Y=INT(RND(1)*19)+2:Yl= INT(RND(l)*19)+2 :rem 33 

42 G=2:G1=19:F=1:F1 = 1 :rem 130 

44 W$ = " [[{[[[[[[[[[•[[[[[" :rem 111 

45 FORI = l28TO240:POKE36874, 1 :NEXTI:POKE36874 f 0. :rem 39 

50 YY=Y:XX=0:GOSUBl0000:PRINT"{PUR}]" :rem 179 

55 YY=Yl:XX=21:GOSUBl0000:PRINT"{ YEL}t" :rem 31 

60 YY-F:XX=G:GOSUBl0000:PRINT"{PUR}£":YY=Fl:XX=Gl:GOSUB10 

000:PRINT"{YEL}£" «rem 166 
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70 YY=F+1:IFFNP(G)=32THENYY=F:XX=G:GOSUBl0000:PRINT" 

{GIU'}{SIN}{PUR}£":F=F+1:D=30:N=197:GOSUBl 1 000 

:rem 156 

73 YY=F+1:IFFNP(G)=143THENGOSUB12000:YY*F:XX*G:GOSUBl0000 
:PRINT” {GIU'}{SIN}{YEL}{RVS}W{OFF}”:F=l:G=2 :rem 239 

75 YY=F1 + 1 :IFFNP(Gl)=32THENYY=Fl:XX=G1:GOSUBl0000:PRINT” 
{GIU ' } {SIN} {YEL} £” :Fl=Fl+l :D>=30:N=221 :GOSUBllOOO 

:rem 189 

76 YY=F1+1 :IFFNP(Gl)=143THENGOSUB12000 :YY=Fl:XX*Gl:GOSUBl 
0000 :PRINT" {GIU'}{SIN}{PUR}{RVS}W{OFF}": Fi = 1:G1 = 19 

:rem 78 

77 IFF=2lORFl=21THEN5000 :rem 143 

78 GETA$ :rem 180 

80 IFA$ = ,, 2"THENIFY>2THENYY=Y:XX=0:GOSUB10000:PRINT” " :Y=Y 

-1 :rem 161 

85 IFA$="0"THENIFYl>2THENYY=Yl:XX=21:GOSUBl0000:PRINT" ": 

Yl=Yl-l :rem 155 

90 IFA$="A"THENIFY<20THENYY=Y:XX*0:GOSUB10000:PRINT" ":Y= 

Y+l :rem 221 

95 IFA$="L"THENIFYl<20THENYY=Yl:XX=21:GOSUBl0000:PRINT" " 
:Yl=Yl+l :rem 228 

100 IFA$="Q"THENGOSUBl000 :rem 199 

105 IFA$*"O"THENGOSUB2000 :rem 203 

110 IFA$ = "W'THENGOSUBl100 :rem 207 

115 IFA$="P"THENGOSUB2100 :rem 206 

200 W$=MID$(W$ f 2,LEN(W$))+LEFT$(W$,1):YY=21:XX=2:GOSUBl00 
00:PRINT"{GRN}"W$;"{HOME}" :rem 178 

999 GOTO50 :rem 73 

1000 I-Y-l:IFY=FTHENIFG=2THENIFA$(I ,2) <>" "THENRETURN 

'/ :rem 255 

1001 IFY-FlTHENIFGl*2THENIFA$(I , 2)<>" "THENRETURN 

:rem 235 

1002 FORL®1TO18:A$(I,L-1)■A$(I f L):NEXT:A$(I f 18)-A$(1,0) 

:rem 18 


1005 IFY»FTHENIFA$(I,G-1)<>" "THENG S G-1 :rem 213 

1007 IFY*FlTHENIFA$(I,Gl-1)<>" "THENGl=Gl-1 :rem 155 

1010 YY=Y:XX*2:GOSUBl0000:FORL=lTOl8:PRINTA$(I,L); :NEXT:R 
ETURN : rem 1 

1100 I«Y-1:IFY-FTHENIFG=19THENIFA$(1,17)<>" "THENRETURN 

:rem 110 

1101 IFY>=Fl THENIFGl = 1 9THENIFA$ (1,17) <>" "THENRETURN 

:rem 90 

1102 A$ (1,0)*A$(1,18):FORL*l7TO0STEP-1: A$ (I,L+1)-A$(I,L): 

NEXT :rem 169 

1105 IFY-FTHENIFA$(I,G-1)<>" "THENG=G+1 :rem 212 

1107 IFY*FlTHENIFA$(I,Gl-1)<>" "THENGl-G :rem 13 

1110 YY*Y:XX*2:GOSUBl0000:FORL*lTOl8:PRINTA$(I,L); :NEXT:R 
ETURN :rem 2 

1200 D=5:FORLL*l99TO203STEP2:N-LL:GOSUBl1000:NEXT:RETURN 

:rem 84 
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:rem 

1 96 

2001 

IFYl=FTHENIFG*2THENIFA$(1,2)<>" "THENRETURN:rem 

187 

2002 

FORL=1TO18: A$(I,L-1)=A$(I,L):NEXT:A$(1,18) 

S A$(I # 

0) 



:rem 

19 

2005 

IFYl=FlTHENIFA$(I,Gl-1)<>" "THENGl=Gl-1 

:rem 

203 

2007 

IFYl=FTHENIFA$(I,G-1)<>" "THENG=G-1 

s rem 

9 

2010 

YY=Yl:XX=2:GOSUBl0000 :FORL=lTOl8 :PRINTA$(I 

,L); :NEXT: 


RETURN 

:rem 

51 

2100 

I=Yl -1 : IFYl =FlTHENIFGl =1 9THENIFA$ (1,17)0" 

"THENRETU 


RN 

s rem 

51 

2101 

IFYl=FTHENIFG=19THENIFA$ (1,17)0" "THENRETURN 




2 rem 

42 

2102 

A$ (1,0)=A$ (1,18) :FORL= 1 7TOOSTEP-1 :A$ (I ,L+1) =A$ (I 

,L) : 


NEXT 

2 rem 

170 

2105 

IFYl =FlTHENIFA$ (I,Gl-l ) O" "THENGl =Gl+l 

2 rem 

202 

2107 

IFYl =FTHENIFA$ (I ,G-1 ) O" "THENG=G+1 

2 rem 

8 

2110 

YY=Yl:XX=2:GOSUBl0000:FORL=lTOl8:PRINTA$(I 

,L); :NEXT: 


RETURN 

2 rem 

52 

5000 

IFF=21THENY=F:X=G:I$="{PUR}" 

2 rem 

31 

5002 

IFF1 = 21THENY=F1:X=Gl:I$="{YEL}" 

2 rem 

182 

5005 

W$="£-":C = 1:FORG=0TOl6:YY=Y:XX=X:GOSUBl0000 :PRINTI$; 


MID$ (W$,C,1):C*-(C=2)+(2ANDC=1):GOSUB1200: 

NEXT 



• 

2 rem 

14 

5007 

POKE36875,0 

2 rem 

ìoo- 

5010 

F=Y:IFF=21THENW$=B$:GOTO5020 

2 rem 

216 

5015 

W$=C$ 

2 rem 

234 

5020 

POKE36869,240 :PRINT"{CLR}{ 5 GIU'}{GRN}BRAVISSIMO "W 


$" I" 

2 rem 

1 84 

5030 

PRINT" { 2 GIU ' }{YEL}HAI VINTO!" 

2 rem 

220 

5100 

PRINT" { 2 GIU ' }PREMI 'X' PER FINIRE" : PRINT"{GIU ' 

} 


{CYN} ' 1 1 PER CONTINUARE." 

2 rem 

199 

5105 

PRINT"{GIU'}{GRN} ' 2' PER NUOVA PARTITA." 

2 rem 

254 

5110 

GETA$:IFA$="X"THENEND 

2 rem 

25 

5120 

IFA$="1"THEN5500 

2 rem 

103 

5130 

IFA$ = "2"THENPRINT"{CLR}{ 11 GIU'}{ 7 DES}ATTENDI !":G 


OSUB8005:GOTO30 

2 rem 

16 

5140 

GOTO5110 

2 rem 

202 

5500 

PRINT"{CLR}":FORF=lTOl9 : I = INT(RND(1)*16)+1 

2FORL= 

‘I-1T 


O0STEP-1 : A$(F,L)=A$(F,L+1):NEXT 

2 rem 

81 

5510 

FORL=ITOl7:A$(F,L)=A$(F,L+1) :NEXT:A$(F,l8) 

=A$(F r 

0) : N 


EXTF 

2 rem 

226 

5600 

GOTO30 

2 rem 

103 

6000 

GOTO6000 

2 rem 

197 

7000 

POKE36869,255:PRINT"{CLR} { 2 GIU '} {WHT} " :FORF=lTOl9: 


PRINT" { 2 DES}" ;:FORG=lTOl8:PRINTA$(F,G) 

NEXT:PRINT 


: NEXT 

2 rem 

1 

7010 

PRINT"{HOME}{GIU '} {RED }": FORF=lT021SPRINT" 

[ 

248 


{ 18 DES} [": NEXT 

2 rem 

7020 

PRINT"{HOME}{RED}{GIU' } [[[[{[[[{{[[[[[[[[[" 




2 rem 

1 55 
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7040 PRINT"{HOME}{PUR}{RVS}";B$:XX=22-LEN(C$):PRINT" 

{HOME}{YEL}{RVS}"LEFT$("{ 20 DES}",XX);C$ :rem 193 

7999 RETURN :rem 194 

8000 DIMA$(19,18) :rem 87 

8005 FORF*lTOl9 :rem 117 

8010 FORG=lTOl8:A$(F,G)■" ":IFRND(1)>.5THENA$(F,G)»"[" 

: rem 229 

8015 IFRND(1)<.02THENA$(F,G)="{RVS}W{OFF}" :rem 41 

8020 NEXTG,F :rem 194 

8090 RETURN :rem 177 

9000 POKE52, 28 :POKE51, 0:POKE55, 0 :POKE56,28:FORL=32*8T032* 
8+7:POKEL+7168,0:NEXT :rem 129 

9002 FORL=27* 8T031*8+7:READN:POKEL+7168 ,N:NEXTL :rem 106 
9010 DATA170,85,170,85,170,85,170,85 :rem 44 

9020 DATA24,24,255,60,60,90,66,195 :rem 193 

9030 DATA8,12,250,137,250,12,8,0 :rem 73 

9040 DATAI 6,48,95,147,95,48,16,0 :rem 105 

9050 DATAI 53,219,126,60,60,126,219,129 :rem 135 

9500 PRINT"{CLR}{WHT}{ 22 GIU'}{ 4 SPAZI}[< 14 @>]{GIU'} 

{ 14 SIN}{RVS}CADUTA{ 2 SPAZI}LIBERA{OFF}" :rera 81 

9630 PRINT"{GIU'} ** PREMI UN TASTO **{HOME}"; :rem 85 

9631 GETA$:IFA$=""THEN9631 :rem 201 

9640 PRINT"{CLR}{ 23 GIU'}"; :rem 249 

9650 RETURN :rem 180 

10000 PRINT"{HOME}"LEFT$("{ 23 GIU'}",YY)LEFT$(" 

{ 23 DES}",XX); :rem 180 

10010 RETURN :rem 210 

10020 POKE211,XX:RETURN :rem 172 

11000 POKE36875,N:FORL=lTOD:NEXTL:POKE36875,0:RETURN 

*/ :rem 27 

12000 FORI*15ITOI83:D*30:N=I:GOSUBl 1000:NEXT:RETURN 

:rem 161 


La disa 




Per l'ennesima volta i Marziani 
stanno cercando di distruggere la 
Terra. Il loro obiettivo è far saltare 
una grande diga di importanza vi¬ 
tale per l'economia energetica ter¬ 
restre. Le bombe sganciate dai loro 
aerei hanno una particolarità: rim¬ 
balzano più volte sul muro della 


diga, finché non esplodono di¬ 
struggendone una parte. Il tuo 
compito è centrare nel mirino del 
tuo cannone terra-aria le bombe 
rimbalzanti, e colpirle prima che 
esplodano. Per ogni bomba elimi¬ 
nata totalizzi da 10 a 70 punti, a 
seconda della rapidità con cui la 


9 






colpisci; usa i tasti l-P-Q-Z per 
muovere il mirino nelle quattro di¬ 
rezioni, e la barra spaziatrice per 


far fuoco. La partita ha termine 
quando 10 bombe esplodono sul¬ 
la diga. 


100 

REM LA DIGA 


: rem 

23 

no 

HS*0 


: rem 

154 

1 20 

PRINT"{CLR}" 


:rera 

247 

130 

GOSUB840 


: rem 

176 

140 

GOSUB780 


: rem 

180 

150 

FORN=0TO4:POKE38400+N,0 :NEXT 


:rem 

197 

160 

N=7692:POKEN,!8:P0KEN+1,5:POKEN+2,3 : 

POKEN+3 

, 46:FORI=N 


TON+3:POKEI+C, 0:NEXT 


: rem 

17 

170 

FORN = 81 20TO81 41 


:rem 

70 

180 

POKEN,102:POKEN+30720,4 :POKEN+22, 45 : 

POKEN-22,45:POKEN 


+30742,4:POKEN+30698 , 4 :NEXT 


: rem 

210 

190 

FORN=8142TO8098STEP-22:POKEN,118:POKE(N+21) 

ri 1 7 





: rem 

252 

200 

POKE(N+30720),4 :POKE(N+30741) ,4:NEXT 


:rem 

242 

210 

POKESI,32:V»INT(RND(1)*2+1) :W*INT(RND(1)* 19+1) :AP 

=W+7 


746:C=30720:B=1:SH = 0 


: rem 

1 86 

220 

IFLO>l00THEN640 


:rem 

86 

230 

IN=22:SI=8064:H=1 


: rem 

162 

240 

IFSC>HSTHENHS=SC 


:rem 

49 

250 

PRINT”{BLK}{SU}PUNTI";SC;TAB(16);HS; 

"{HOME} 

M :rem 

28 

260 

FORN = 7746TOAP: POKEN,65:POKEN+30720,5 

: FORM*ITO200: 

NEXT 


:POKEN,32:NEXT 


srem 

238 

270 

POKEAP,32:POKEAP,G:POKEAP+C,0 :POKESI 

,43:POKESI+C, 

0 




srem 

1 30 

280 

FORN=1TOl0 :NEXT 


srem 

1 86 

290 

POKEAP,32:AP*AP+IN:IFAP>8076ORAP<W+7745THENIN=-IN 

: B=B 


+ 1 :IFB<3THENG=81 


srem 

47 

300 

IFB> 6ANDAP >8055THENGOSUB570 : GOTO 210 


s rem 

1 57 

310 

POKEAP,G:POKEAP+C ,0 


s rem 

139 

320 

IFB=30RB=4THENG=87 


s rem 

76 

330 

IFB=50RB=6THENG = 90 


srem 

75 

340 

IM=PEEK(197):IFIM=64THEN290 


srem 

81 

350 

POKESI,32 


srem 

244 

360 

IFIM=12THENSI*SI-1 


s rem 

96 

370 

IFIM=13THENSI*SI+1 


srem 

96 

380 

IFIM=33THENSI=SI+22 


srem 

150 

390 

IFIM=48THENSI=SI-22 


srem 

1 59 

400 

IFSI< 7702THENSI = 7702 


srem 

163 

410 

IFSI>8097THENSI=8097 


srem 

182 

420 

IFIM=32THENGOSUB450:ONHGOTO270,210 


s rem 

85 

430 

POKESI,43:POKESI+C,1:GOTO270 


srem 

209 

440 

GOTO270 


s rem 

106 

450 

REM 


srem 

125 

460 

POKE36878,15:POKE36876,220:FORN=lTOl0:NEXT: 

POKE36876, 


0 :POKE36878,0 


s rem 

164 


io 



470 

SH-SH+1:IFSH>3THENRETURN 

:rem 

78 

480 

IFSI-APTHEN500 

:rem 

89 

490 

POKESI, 32: SI-SI-5+INT(RND(l )*10+1) s] 

POKESI» 43: POKESI+C 


, 1 : RETURN 

:rem 

64 

500 

POKESI,32:PORESI,42:M=7 

srem 

131 

510 

SC-SC+10*(8-B):H-2 

srem 

158 

520 

POKE36878,15:FORL-lTOl5:FORN=200T0220+L*2 :rem 

148 

530 

POKE36876,N:NEXT:NEXT 

srem 

65 

540 

POKE36878,0 :POKE36876,0 

srem 

7 

550 

POKESI,32 

srem 

246 

560 

RETURN 

srem 

123 

570 

REM 

srem 

128 

580 

FORN-0TO4:POKE(AP+22*N),32:NEXT 

s rem 

114 

590 

POKE36877,220:FORL=15TO0STEP-1:POKE36878 ,L: FORM-ITO20 


:NEXT:NEXT 

srem 

221 

600 

POKE36877, 0 :POKE36878,0 

srem 

5 

610 

B= 1 

srem 

71 

620 

LO-LO+1 0 

s rem 

151 

630 

RETURN 

srem 

121 

640 

PRINT"{CLR}{ 6 GIU'}{ 4 SPAZI}{RVS} 

FINE PARTITA 



{ 2 GIU'}" 

srem 

207 

650 

PRINT" PREMI {RVS}G{OFF} PER GIOCARE{GIU'}" :rera 

198 

660 

PRINT"{ 7 SPAZI}{RVS}S{OFF} PER SMETTERE{GIU'}" 




srem 

197 

670 

POKE36878,15:F0RN*lT05:F0RM*l80TO235STEP2:POKE36876,M 


:NEXT:POKE36876,0 :NEXT 

srem 

199 

680 

POKE36878,0 

s rem 

57 

690 

FORN-1TO10 :GETT$:NEXT 

s rem 

81 

700 

IFSC>HSTHENHS=SC 

srem 

50 

710 

GETCO$:IFCOS-""THEN71 0 

s rem 

245 

720 

IFCO$-"S"THENEND 

srem 

1 84 

730 

IFCO$< >"G"THEN71 0 

srem 

171 

740 

PRINT"{CLR}":GOTOl40 

srem 

7 

750 

GETJB$:IFJB$-""THEN750 

srem 

241 

760 

POKE36879,25 

srem 

112 

770 

END 

srem 

117 

780 

REM 

srem 

131 

790 

SI-8064 

srem 

75 

800 

SC-0:SH-0 

srem 

221 

81 0 

G=81 : LO=0 

srem 

200 

820 

C-30720 

srem 

22 

830 

RETURN 

srem 

123 

840 

POKE36879,8 

s rem 

64 

850 

POKE36869,242 

srem 

160 

860 

PRINT"{CLR}{YEL}{RVS}{ 4 SPAZI}L A{ 

4 SPAZI }D 1^ G 

A 


{ 4 SPAZI}" 

srem 

84 


870 PRINT"{ 2 GIU'} USA I TASTI SEGUENTI:{GIUrem 120 
880 PRINT" {GIU'} 1^ - SINISTRA":PRINT"{GIU'} P - DESTRA" 

:rem 193 

890 PRINT"{GIU'} Q - SU":PRINT"{GIU'} Z - GIU'" :rem 88 
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900 

PRINT"{GIU*} BA{ 2 R}A - FUOCO" 

srem 

12 

91 0 

PRINT" { 3 GIuTt 4 SPAZI }PREMI UN TASTO" 

srem 

201 

920 

GETCO$ : IFCO$■'" "THEN920 

s rem 

251 

930 

PRINT"{CLR}" 

srem 

0 

940 

POKE36869,240 :POKE36879,30 

s rem 

1 67 

950 

RETURN 

srem 

126 


CI6z*plus/4 

% 

Sotteranei 


In questo gioco vesti i panni di un 
cavaliere rimasto intrappolato nei 
sottorranei di un castello incantato. 
Questi sotteranei sono formati da 
diverse stanze comunicanti tra lo¬ 
ro, e sono popolati da un gran nu¬ 
mero di mostri pericolosissimi. 
Scopo del gioco è quello di muo¬ 
versi da una stanza all'altra ucci¬ 
dendo il maggior numero possibile 
di mostri. La tua situazione è indi¬ 
cata dai seguenti dati: la fatica, che 
vale inizialmente 100 e diminuisce 
se ti muovi o combatti; le ferite, 
che partono a neh'esse da 100 e 


diminuiscono nel combattimento,- 
il peso, che viene deciso casual¬ 
mente all’inizio del gioco e deter¬ 
mina la tua resistenza alla fatica. 
Usa i tasti da 1 a 9 per avanzare di 
altrettanti passi, i tasti cursore sini¬ 
stro e destro per ruotare di 90 gra¬ 
di nelle rispettive direzioni, e infine 
la barra spaziatrice per sfoderare 
la spada e combattere. La partita 
ha termine se fatica o ferite calano 
a zero; tieni presente però che pu¬ 
oi recuperare punti in fatica stando 
fermo e girando su te stesso. 


10 

REM SOTTERRANEI 

srem 

149 

20 

DIMR$(4) 

srem 

55 

30 

Y$ = "{HOME}{ 22 GIU'}":X$*"{ 22 DES}" 

srem 

159 

40 

POKE36879,8 :PRINTCHRS(14):SC = 7680 

s rem 

104 

50 

SR=INT(RND(1)*11+10) 

srem 

1 

60 

DE=INT(RND(1)*1 1+10):WE=75+INT(RND(1)*25) 

srem 

195 

70 

TS=0:RO=0:FA=100 :WO*l00:D = 1:X=3:Y=15 

srem 

36 

80 

FORI = OTO 4 : READR$ (I):NEXT 

srem 

187 

90 

DATA093D7L5ED5R104D7L4D2L4U2L4U9R3U4L3U6 

srem 

156 

100 DATAD10R5E403D991L4U9D9L8U9E406 

srem 

115 

110 DATA03D5RE5U104R4D7E4092L93U994 

srem 

99 

120 DATA06D7U7R6D8L2D5R2D8L4E404U91R6D4U4L6U1E40R2L2U6 



srem 

85 

130 DATA093d9L9r6D9L1D3L1E403U993 

srem 

214 
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140 

ONROGOTO160,170,180,190 

:rem 

242 

150 

MX = 10 :MY * 3 : GOTO 200 

:rem 

46 

160 

MX*4:MY=*3:GOTO200 

srem 

2 

170 

MX = 3 :MY=10:GOTO 200 

: rem 

48 

180 

MX=10:MY»18:GOTO200 

srem 

103 

1 90 

MX = 2:MY * 18:GOTO200 

srem 

57 

200 

M=0:IFRND(1)>.5THENM=INT(RND(1)*3+1 ) :MS=INT(RND( 1 )*10 


) +5 

srem 

212 

210 

GOSUB970:V=0:F=0:GOT0250 

s rem 

167 

220 

GETA$:V=VAL(A?):IFV-0THEN430 

s rem 

145 

230 

FA=FA-INT((V/200)*(100-WO)+(V/200)*WE+.5) 

srem 

119 

240 

GOSUB910 :IFM*1ANDRND(1)>.2THENF= 1 

srem 

238 

250 

SW=0: FORI * 1TOV:PRINTLEFT$(Y$,Y+1) ;LEFT$(X$, 

X) " 



{ 2 SPAZIHGIU'}{ 2 SIN}{ 2 SPAZI}" 

srem 

174 

260 

Xl=X+(D=3)-(D=1):Yl=Y+(D=0)-(D=2) 

srem 

206 

270 

IFPEEK (SC+Yl * 22+Xl ) O320RPEEK (SC+Yl * 22+Xl + 1 ) 032THENI 


=V:GOTO360 

srem 

0 

280 

IFPEEK (SC+Yl*22+Xl+22) O320RPEEK (SC+Yl * 22+Xl +23) <>32T 


HENI*V: GOTO360 

s rem 

196 

290 

X*X1:Y=Yl:IFX>0ANDX<11ANDY>0ANDY<20THEN360 

srem 

151 

300 

RO=RO+(X=0)-(X*ll)+((Y=20)-(Y=0))*2 

srem 

45 

310 

IFX*0THENX=10 

srem 

1 3 

320 

IFX*1lTHENX=1 

srem 

16 

330 

IFY = 0THENY = 19 

srem 

26 

340 

IFY*20THENY*1 

srem 

20 

350 

GOTO140 

srem 

102 

360 

PRINTLEFT$(Y$,Y+1) ;LEFT$(X$,X)"{RED}"; 

srem 

154 

370 

OND+1GOTO380,390,400,410 

srem 

244 

380 

PRINT"[<D>} {GIU'}{ 2 SIN}[< 2 K>}{SU}{SIN} 

";:GOTO420 



srem 

23 

390 

PRINT"{RVS} [<!>} {OFF}[<F>] {GIU'}{ 2 SIN}{RVS}[<I>] 



{OFF} {SIN}";:GOTO420 

srem 

224 

400 

PRINT"{RVS}[< 2 K>]{GIU'}{ 2 SIN}{OFF} [<V>]{ 2 SIN} 


";IGOTO420 

srem 

210 

410 

PRINT" [<I>J{GIU'}{ 2 SIN}[<C>J [<I>]{SU}{ 2 

SIN}"; 




srem 

1 83 

420 

IFV> 0THENNEXTI 

srem 

160 

430 

IFA$<>"{GIU'}"ANDA$<>"{DES}"THEN490 

srem 

57 

440 

IFFACl00THENFA*FA+1:GOSUB910 

srem 

165 

450 

SW«0:D»D+(A$="{GIU'}")-(A$="{DES}"):IFD<0THEND=3 




srem 

255 

460 

IFD > 3THEND=0 

srem 

190 

470 

A$*"" 

srem 

129 

480 

V-0:GOTO360 

srem 

107 

490 

IFA$<>" "THEN570 

srem 

26 

500 

SW=3:FA=FA-2 

srem 

147 

510 

PRINTLEFT6(Y$,Y+1) ;LEFT$(X$,X+1) ;"{YEL}"; :IFD = 0THENPR 


INT"[<H>]":GOTO550 

srem 

235 

520 

IFD*1THENPRINT"{GIU'}[<Y>J":GOTO550 

srem 

173 

530 

IFD“2THENPRINT"{GIU'}{SIN}[<N>]":GOTO550 

srem 

63 

540 

PRINT"{SIN}[<P>]" 

srem 

182 
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550 

560 

570 

580 

590 

600 

610 


620 

630 

640 

650 

660 

670 

680 

690 

700 

710 

720 

730 

740 

750 

760 

770 

780 

790 

800 

810 

820 

830 

840 

850 


XI -X sYl=Y sXl*X1 + ((D=3)-(D=l))* 2sYl=Yl + ((D=0)-(D=2)) * 2 

:rem 62 

F*! :rem 79 

IFSW>OTHENSW=SW- 1IFSW=OTHENGOSUB91OsA$="" :GOTO360 

:rem 182 

IFM=0THEN870 :rem 180 

IFMS>=SRANDRND(1)>.7THENF* 1 srem 172 

IFF=0THEN700 :rem 158 

PRINTLEFT$(Y$,MY+1);LEFT$(X$,MX)"{ 2 SPAZI}{GIU'} 

{ 2 SIN}{ 2 SPAZI}";sIFSM>OANDMX>=XTHENPRINT"{ 2 SU} 

{ 3 SIN} " :rem 124 

SM=0:DY=MY+(MY>Y)-(MY<Y) :rem 209 

IFPEEK (SC+DY*22+MX) O320RPEEK (SC+DY*22+MX + 1 ) 032THEN6 
60 :rem 18 

IFPEEK (SC+DY*22+MX+22) O320RPEEK (SC+DY*22+MX+23) <>32T 
HEN660 :rem 214 

MY=DY :rem 27 

DY=MX+(MX>X+2)-(MX<X-1) :IFABS(DY-X)< = 1THENDY=DY+(DY>1 
)*2 :rem 138 

IFPEEK (SC+MY*22+DY) O320RPEEK (SC+MY*22+DY+1 ) 032THEN7 
00 :rem 19 

IFPEEK (SC+MY*22+DY+22) O320RPEEK (SC+MY*22+DY+23) <>32T 
HEN700 :rem 215 

MX =DY :rem 30 

PRINTLEFT$(Y$,MY+1);LEFT$(X$,MX)"{BLU}{RVS}[<B>]{OFF} 
[<F>]{GIU*}{ 2 SIN}[<C>]:IFSW=0THEN750 :rem 5 

IFABS(XI-MX)>10RABS(Yl-MY)>1THEN750 :rem 119 

SW=1:S=SR/4:S=S+(S*DE)/I00:MS=MS-INT(S+.5):IFMS>0THEN 
750 :rem 133 

PRINTLEFTS(Y$,MY+1);LEFT$(X$,MX)"{ 2 SPAZI}{GIU'} 

{ 2 SIN} " :rem 41 

TS»TS+1:M=0:GOTO870 :rem 136 

IFSM>0ORRND(l)>.5ORF*0THEN830 :rem 255 

X2=MX:Y2=MY :rem 177 

PRINTLEFTS(Y$,MY+1);LEFT$(X$ f MX); :rem 217 

IFMX<XTHENPRINT"{GIU'}{DES}{YEL}[<Y>]"; :Y2-Y2+1:X2*X2 


+1:GOTO820 
IFMX=OTHEN 870 

IFPEEK(SC+MY*22+MX-1)«160THEN870 
PRINT"{SIN}{SU}{YEL}[<P>]";:X2=X2-1 

SM-4 

IFSM=0THEN870 

SM=SM-1 

IFABS<X2-X)>lORABS(Y2-Y)>lTHEN870 


: rem 
:rem 
:rem 
:rem 
: rem 
srem 
: rem 
srem 


2 

15 

98 

9 

171 

5 

119 

231 


860 SW=1sS=MS:S=S+(S*2*M)/100:WO=WO-INT(S+.5) srem 172 

870 IFWO>0ANDFA>0THEN220 * ;r em 205 

880 FORI* ITO1000sNEXTsPRINT"{CLR}{ 3 GIU'}{YEL}SEI MORTOl 
" :M=0 s rem 17 

890 GOSUB91OsGOTOl120 :rem 242 

900 IFD1=3THENPRINT"{SIN}"; :rem 229 
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910 PRINTLEFT$ ( Y$ , 2 ) ; LEFT$ (X$ f 1 4 ) " {CYN}FATICA {YEL}{GIU'} 
{ 7 SIN}"FA"{SIN}% " : rem 156 

920 PRINTTAB(14)"{CYN}FERITE{GIU'}{ 6 SIN}{YEL}"WO"{SIN}% 

" :rem 96 

930 PRINTTAB(14)"{GIU*}{CYN}PESO{GIU'}{ 4 SIN}{YEL}"WE" 
{SIN}KG{GIU'}" :rem 36 

940 PRINTTAB(14)"{CYN}MOSTRI{GIU'}{ 6 SIN}UCCISI{YEL} 

{GIU'}{ 6 SIN}"TS : rem 251 

950 IFM>OTHENPRINTLEFT$(Y$,16);LEFT$(X$,14)"MOSTRO{GIU•} 

{ 7 SIN}IN VISTA"; :ceni 25 

960 RETURN :rem 127 

970 PRINT"{CLR}{WHT}";:Dl = l:FORI-lTOLEN(R$(RO)) :rem 116 

980 S$*MID$(R$(RO),1,1):IFVAL(S$)>0THENFORJ=1TOVAL(S$):GO 


SUBÌ 060:NEXT 

: rem 

214 

990 

IFS$*"U"THENDl =0 

:rem 

143 

1000 

IFS$*=" L"THENDl *3 

: rem 

168 

1010 

IFS$="D"THENDl*2 

:rem 

160 

1020 

IFS$*"R"THEND1=1 

:rem 

174 

1030 

IFS$="E"THENPRINT"{OFF}"; 

:rem 

93 

1040 

IFS$ *"O"THENPRINT"{RVS}"; 

:rem 

232 

1050 

NEXT:PRINT"{HOME}":GOSUB910:RETURN 

srem 

145 

1060 

PRINT" {SIN}"; 

srem 

112 

1070 

IFD1=0THENPRINT"{SU}"; 

srem 

5 

1080 

IFD1*1THENPRINT"{DES}"; 

srem 

147 

1090 

IFDl*2THENPRINT"{GIU'}"; 

srem 

137 

1100 

IFD1 * 3THENPRINT"{SIN}"; 

srem 

14 

1110 

RETURN 

srem 

163 

1120 

PRINTLEFTS(Y$,l8);LEFT$(X$,l 5) "FINE" 

srem 

82 

1130 

PRINT"{ 2 GIU'}GIOCHI ANCORA (S/N)?" 

s POKEl98 f 0 



h ^ 

srem 

230 

1140 

GETA$ 

srem 

11 

1150 

IFA$*"N"THENPRINT"{CLR}": END 

srem 

46 

1160 

IFA$*"S"THENRUN 

srem 

180 

1170 

GOTO 1140 

srem 

200 
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CI6z* plus/4 


• r è 

Impariamo le direzioni 

, .. . . ■ . * 


Questo programma serve a inse¬ 
gnare ai bambini più piccoli il signi¬ 
ficato delle parole su, giù, sinistra, 
destra e dentro. Sullo schermo ap¬ 
pare un castello colorato e il terre¬ 
no circostante. Il piccolo può sce¬ 
gliere, in una lista di oggetti (uccel¬ 
lo, stella, bimbo e cane), quali ag¬ 
giungere al disegno per completar¬ 
lo,- egli dovrà poi indicare dove 
l'oggetto prescelto deve compari¬ 
re, usando uno dei cinque termini 


indicanti le direzioni. Ogni oggetto 
può poi essere cancellato. In tal 
modo il bambino (con l’aiuto di un 
adulto se non sa ancora leggere) 
può imparare il concetto di posi¬ 
zione, divertendosi a creare nuovi 
disegni e nuove storie coi perso¬ 
naggi a sua disposizione. Per usci¬ 
re dal programma rispondere 
“niente" alla domanda "cosa vuoi 
disegnare?". 


100 

REM IMPARIAMO 

LE DIREZIONI 

:rem 

82 

no 

L$ (1 ) - " {HOME} { 

16 GIU'}{ 12 DES}" 

:rero 

1 32 

120 

L$ (2)-L$ (!)+"{ 

4 GIU'}{ 18 DES}" 

: rem 

114 

130 

L$(3)="{HOME}{GIU'}{ 16 DES}" 

srem 

253 


140 L$(4) = "{HOME}{ 12 GIU'}{DES}":L$(5)=L$(4)+"{ 29 DES} 

" :rem 33 

150 COLORO,9,4:COLOR4,9,4 :rem 188 

160 PRINT"{CLR}{BLK}"TAB(8)"{GIU'}{RVS} IMPARIAMO LE DIRE 
ZIONI { 2 GIU'}" :rem 81 

170 PRINT"ORA FAREMO UN GIOCO PER IMPARARE COSA":rem 119 
180 PRINT"SIGNIFICANO LE PAROLE SU, GIU', DESTRA, SINISTR 
A E DENTRO." :rem 143 

190 PRINT"{GIU'}VEDRAI UN CASTELLO CON QUESTE PAROLE." 

:rem 217 

200 PRINT"{GIU'}LE PAROLE SONO LUOGHI VICINO AL 

{ 9 SPAZI{CASTELLO." :rera 169 

210 PRINT"{GIU'}ALLA BASE DELLO SCHERMO VEDRAI I NOMI" 

:rem 98 

220 PRINT"DI ALCUNE COSE CHE PUOI DISEGNARE.{GIU'}" 

:rem 178 

230 PRINT"PUOI USARE QUESTE COSE PER COMPLETARE 

{ 3 SPAZI}IL DISEGNO DEL CASTELLO.{ 3 GIU'}":rem 34 
240 PRINT"{ 5 SPAZI}PREMI UN TASTO PER CONTINUARE" 

:rem 241 

250 GETQ$:IFQ$=""THEN250 :rem 113 

260 PRINT"{CLR}{GIU'}I0 TI CHIEDERÒ’ QUALE OGGETTO VUOI" 

:rem 128 
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270 PRINT"AGGIUNGERE AL DISEGNO, E TU DOVRAI{ 6 SPAZljDIR 

MI IL SUO NOME.{GIU'}" :rem 44 

280 PRINT"POI TI CHIEDERÒ' DOVE VUOI METTERLO," :rem 99 

290 PRINT"E TU DOVRAI RISPONDERMI:" :rem 165 

300 PRINT"SU, GIU', DESTRA, SINISTRA O DENTRO.{GIU'}" 


:rem 

310 PRINT"VA BENE, ORA GIOCHIAMO...{ 3 GIU'}" :rem 

320 PRINT"{ 6 SPAZI}PREMI UN TASTO PER INIZIARE”: rem 

330 GETQ$:IFQ$-""THEN330 :rem 

340 P0RX-1T05:READT$(X):NEXT :rem 

350 DATAUCCELLO,BIMBO,CANE,STELLA,CANCELLA :rem 

360 FORX-lT05:READW$(X):NEXT :rem 

370 DATADENTRO,GIU',SU,SINISTRA,DESTRA :rem 

380 PRINT"{GRN}{CLR}{ 3 GIU'}" :rem 

390 FORX-3672TO4071:POKEX,160:NEXT :rem 

400 COLORO,2:COLOR4,7,3 :rem 

410 PRINTTAB(15)"(<2>]{RVS} {OFF} (RVS}{ 3 SPAZI}{OFF} 
{RVS} " : rem 

420 PRINTTAB(15)"{RVS}{ 7 SPAZI}" :rem 

430 PRINTTAB(16)"{RVS}{ 5 SPAZI}" :rem 

440 PRINTTAB(16)"{RVS}{ 5 SPAZI}" :rem 


450 PRINTTAB(16)"{RVS}{ 2 SPAZI}{BLK} [<2>]{ 2 SPAZI}" 


38 

113 

83 

111 

12 

225 

17 

20 

80 

86 

80 

227 

7 

9 

10 


:rem 48 

460 PRINTTAB(10)"{RVS}{ 2 SPAZI}{OFF} {RVS} {OFF} 

{ 2 SPAZI}{RVS}{ 2 SPAZI}{BLK} [<2>]{ 2 SPAZI}{OFF} 

{ 2 SPAZI}{RVS}{ 2 SPAZI}{OFF} {RVS}{ 2 SPAZI}" 

:rem 187 

470 PRINTTAB(10)"{RVS}{ 4 SPAZI}{OFF}{ 2 SPAZI}{RVS} 

{ 5 SPAZI}{OFF}{ 3 SPAZI}{RVS}{ 3 SPAZI}" :rem 79 
480 PRINTTAB(10)"{RVS}{ 3 SPAZI}{OFF}{ 3 SPAZI}{RVS} 

{ 5 SPAZI}{OFF}{ 3 SPAZI}{RVS} {BLK} l<2>] ":rem 117 
490 PRINTTAB(10)"{RVS} {BLK} [<2>]{ 15 SPAZI}" :rem 46 
500 PRINTTAB(10)"{RVS}{ 17 SPAZI}" :rem 1 

510 PRINTTAB(10)"{RVS}{ 10 SPAZI}{BLK} [<2>]{ 2 SPAZI} 

{BLK} l<2>}{ 3 SPAZI}" :rem 76 

520 PRINTTAB(10)"{RVS}{ 17 SPAZI}" :rem 3 

530 PRINTTAB(9)"{RVS}{BLU} [<2>]{ 2 SPAZl}{WHT} 

{ 6 SPAZI}I<2>]{ 9 SPAZI}{BLU} [<2>]" :rem 222 

540 PRINTTAB(8)"{RVS}{BLU}{ 2 SPAZI}I<2>]{ 2 SPAZI}{WHT} 

{ 6 SPAZI}[<2>]{ 9 SPAZI}{BLU}{ 2 SPAZI}" :rem 73 
550 PRINTTAB(7)"{RVS}{ 3 SPAZI}[<2>}{ 2 SPAZI}{WHT} 

{ 6 SPAZI}{<2>]{ 9 SPAZI}{BLU}{ 3 SPAZI}" :rem 42 
560 PRINTTAB(8)"{RVS}{ 5 SPAZI}(<2>]F{ 3 SPAZI}C{BLU} 

{ 11 SPAZI}" :rem 27 

570 PRINTTAB(9)"{RVS}{ 5 SPAZI}{<2>]F{ 3 SPAZI}C{BLU} 

{ 8 SPAZI}" :rem 29 

580 PRINTTAB(21)"{RVS}{ 5 SPAZI}{ 2 GIU'}" :rem 45 

590 PRINT"{BLK}{DES}STELLA{ 2 SPAZI}UCCELLO{ 2 SPAZI}BIMB 
0{ 2 SPAZI}CANE{ 2 SPAZI}CANCELLA{HOME}" :rem 174 
600 PRINTL$(1)"{GIU'}{RVS}DENTRO":PRINTL$(2)"{GIU'}{RVS}G 
IU'{HOME}" :rem 136 
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610 PRINTL$(3)"{GIU'}{RVS}SU":PRINTL$(4)”{GIU'}{RVS}SINIS 
TRA":PRINTL$(5)"{GIU'}{RVS}DESTRA" 

620 INPUT" {HOMEHBLK}COSA VUOI DISEGNARE";P$ 

630 PRINT"{HOME}{ 39 SPAZI}" 

640 IFP$*"NIENTE"THENSCNCLR:END 
650 F0RX=lT05:IFP$“T$(X)THEN670 
660 NEXT:GOTO620 

670 INPUT"{HOME}DOVE VUOI DISEGNARE";W$ 

680 PRINT"{HOME}{ 39 SPAZI}" 

690 FORX»lT05:IFW$»W$(X)THEN71 0 
700 NEXT:GOTO670 
710 C$ = "{WHT}" 

720 IFW$="GIU'"THENC$“"{GRN}" 

730 Q$=C$:IFW$*"DENTRO"THENQ$="[<2>]" 

740 PRINTL$(X)C$"{RVS}{ 5 SPAZI}":PRINTL$(X)"{GIU'}{RVS} 

{ 6 SPAZI}"Q$"{ 2 SPAZI}":PRINTLS(X)C$"{ 2 GIU'}{RVS} 
{ 5 SPAZI}{HOME}" :rem 208 

750 C$*"{RVS}{GRN}":IFW$<>"GIU'"THENC$="{BLK}" :rem 105 
760 IFP$="STELLA"THENPRINTL$(X)"{GIU'}{DES}{BLK}*" 

:rem 231 


:rem 

158 

s rem 

185 

:rem 

125 

: rem 

230 

:rem 

135 

: rem 

230 

: rem 

61 

:rem 

130 

: rem 

144 

:rem 

230 

s rem 

133 

:rem 

101 

: rem 

254 


770 IFP$="BIMBO"THENPRINTLS(X)C$"{DES}W":PRINTL$(X)C$" 

{GIU'}N+M":PRINTL$(X)C$"{ 2 GIU'}{DES}H" :rem 35 
780 IFP$“"UCCELLO"THENPRINTL$(X)C$" )":PRINTL$(X)C$" 

{GIU ' }•»+>" : PRINTLS (X) C$" { 2 GIU'} )" :rem 155 

790 IFP$*"CANE"THENPRINTL$(X)C$"{GIU'} Q N":PRINTL$(X)C$" 
{ 2 GIU'} LUH" :rem 129 

800 IFP$“"CANCELLA"THENPRINTL$(X)"{RVS}{BLK}{GIU'}"W$(X) 

:rem 63 

810 GOTO620 :rem 106 


e con questo tutti al mare. Ci ri¬ 
vediamo al 23 asosto. 

Buone VacanzeIli 
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Kentucky Derby 



State per assistere alle più entusia¬ 
smanti corse di galoppo che si 
svolgono nel famoso ippodromo 
americano del Kentucky. Appena 
il programma viene lanciato, pote¬ 
te scommettere sui cavalli iscritti al¬ 
la corsa (attenzione: disponete ini¬ 
zialmente solo di 100 dollari e la 
scommessa non può superare la ci¬ 
fra che possedete). Per ogni con¬ 
corrente viene fornita la quotazio¬ 
ne degli allibratori. Se non deside- 


vallo digitate la cifra 0. Quando 
siete pronti, date il via alla gara 
premendo il tasto RETURN ed os¬ 
servate direttamente, grazie alla 
pregevole grafica di questo pro¬ 
gramma, lo svolgimento della cor¬ 
sa. Se avete azzeccato il cavallo 
vincente vi aggiudicate una cifra 
che dipende dalla quotazione ad 
esso attribuita, altrimenti potete 
consolarvi tentando la fortuna in 
un'altra corsa. 


rate scommettere su qualche ca¬ 



lo REM *KENTUCKY DERBY* 

: rem 

125 

20 D$ = "{HOME}{ 22 GIU ' } " :POKE53280,5:POKE53281 

,0:rem 

104 

30 GOSUBl400 

:rem 

168 

200 

REM *PROGRAMMA PRINCIPALE* 

:rem 

87 

220 

PRINT"{CLR} " 

:rem 

248 

230 

GOSUB700 

:rem 

172 

250 

GOSUBl200 

:rem 

21 8 

260 

PRINT""D$"{ 4 SU}{ 26 SPAZI}" 

: rem 

89 

270 

GOSUB2000 

:rem 

219 

280 

GOTO400 

: rem 

103 

330 

PRINT""D$"{ 4 SU}IL CAVALLO"WI"HA VINTO!!" 

:rem 

45 

331 

FORH = 1TO3000 : NEXT 

: rem 

19 

335 

CR*CR+I(WI)*P(WI) 

srem 

210 

336 

RESTORE 

srem 

1 92 

337 

FORU = 0TO 5 : POKEV+U,0 : NEXT 

srem 

50 

338 

Yl=60:Y2=100:Y3=140 

s rem 

246 

339 

XI=0 : X2 = 0:X3 = 0 

srem 

248 

340 

IFCR>0THEN230 

srem 

237 

350 

PRINT"(CLRjHAI PERSO TUTTO.{GIU'}" 

srem 

54 

360 

PRINT"SPERO CHE QUESTO TI" 

srem 

65 

370 

PRINT"SIA SERVITO DI LEZIONE!" 

s rem 

56 

380 

END 

srem 

11 4 

400 

REM *MUOVE UN PASSO* 

srem 

1 29 

405 

T%=RND(TI)*3+1 

srem 

21 8 

410 

Al *3:A2=3:A3*3 

srem 

1 78 

415 

IFT% *1THENAl*5 

srem 

35 

420 

IFT%=2THENA2=5 

s rem 

33 
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425 IFT%=3THENA3=5 
430 XI=X1+Al:X2=X2+A2:X3*X3+A3 
435 IFXl>252THENXl*0:Yl*60:C1*C1-1 
440 IFX2>252THENX2*0:Y2*100:C2*C2-1 
445 IFX3>252THENX3*0:Y3*140:C3*C3-1 
450 IFXl>110ANDX1<120THENY1*Y1-02:Ul 
XI:X1-X1+2 

455 IFX2>110ANDX2O20THENY2=Y2-02:U2 
2,X2:X2=X2+2 

460 IFX3>110ANDX3C120THENY3-Y3-02:U3 
4,X3:X3*X3+2 

465 IFXl>160ANDX1<170THENY1=Yl+02:Ul 
XI : XI»X1+2 

470 IFX2>160ANDX2<170THENY2*Y2+02:U2 


:rem 40 
:rem 216 
:rem 212 
:rem 0 
: rem 14 
14:XI“XI-Al+2 :POKEV» 

:rem 252 
14 :X2=X2-A2+2:POKEV+ 

:rem 105 
14:X3*X3-A3+2:POKEV+ 

:rem 114 
14:Xl=Xl-Al+2:POKEV, 

:rem 10 
14:X2*X2-A2+2:POKEV+ 


2,X2:X2=x2+2 :rem 110 

475 IFX3>160ANDX3<170THENY3=Y3+02:U3=14:X3*X3-A3+2:POKEV+ 
4,X3:X3=X3+2 jretn 128 

480 IFXl >*1 20ANDX1 <*1 60THENU1 =1 4 :Xl *X1 -*Al +2: POKEV,Xl :X1*X 
1 +2 ;rem 100 

485 IFX2> = 120ANDX2< = 160THENU2 = 14:X2=X2-A2+2:POKEV+2 r X2:X2 
=X2+2 :rem 207 

490 IFX3>=120ANDX3<=160THENU3»!4:X3*X3-A3+2:P0KEV+4,X3:X3 



=X3+2 

: rem 

214 

500 

IFU1=14THENU1 *13 : GOTO 510 

:rem 

171 

505 

Ul-14 

: rem 

194 

510 

IFU2-14THENU2»!3:GOTO520 

:rem 

175 

515 

U2-14 

:rem 

196 

520 

IFU 3 = 14THENU3*!3:GOTO530 

:rem 

179 

525 

U3-14 

:rem 

198 

530 

POKE2040 f Ul:POKE2041 f U2:POKE2042,U3 

:rem 

7 

540 

POKEV/Xl:POKEV+2,X2:POKEV+4,X3 

:rem 

122 

550 

POKEV+1 r Yl:POKEV+3,Y2:POKEV+5,Y3 

: rem 

220 

570 

IFC1<0THENWI*1:GOTO 330 

:rem 

81 

580 

IFC2<0THENWI=*2 : GOTO3 30 

:rem 

84 

590 

IFC3<0THENWI=3:GOTO330 

srera 

87 

600 

GOTO400 

: rem 

99 

700 

REM *INIZIALIZZAZIONE CAVALLI* 

:rem 

158 

720 

WI = 0 

:rem 

166 

730 

FORK*lT03 

: rem 

16 

740 

X(K)*20 

:rem 

46 

750 

Cl*l:C2*1:C3*1 

:rera 

185 

760 

P (K) = (INT(RND (0) *5)+1)/5 

:rem 

215 

770 

V(K)*P(K)*DV+VN 

:rem 

76 

780 

T(K)=5*(K-l)+3 

: rem 

131 

800 

NEXTK 

:rera 

34 

900 

REM *SCOMMESSE* 

srem 

128 

910 

PT*0 

srem 

171 

920 

FORI-1T03 

s rem 

1 5 

930 

P(I)*(V(I)-VN)/DV 

srem 

158 

940 

PT*PT+P(I) 

srem 

55 

950 

NEXTI 

srem 

38 
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960 F0RK-1T03 

:rem 

21 

970 P(K)*INT(PT/P(K)) 

:rem 

196 

980 NEXTK 

srem 

43 

990 PRINT"{CLR}{CYN}"; 

:rem 

224 

1000 

PRINT" *************************** 

:rem 

1 72 

1010 

PRINT"{ 4 SPAZI}PUÒI{ 2 SPAZI}SCOMMETTERE" 

srem 

24 

1020 

PRINT"*************************" 

srem 

1 74 

1030 

PRINT 

s rem 

81 

1040 

PRINT"LE QUOTE DEI CAVALLI SONO:" 

srem 

252 

1050 

PRINT 

srem 

83 

1060 

FORI = 1TO 3 

srem 

59 

1070 

PRINT"CAVALLO";I?": ";P(I)?"A 1" 

srem 

238 

1080 

NEXTI 

srem 

81 

1 090 

PRINT 

srem 

87 

1100 

PRINT"POSSIEDI";CR;"{SIN} DOLLARI{ 4 SPAZI} 

vt 

srem 

230 

ino 

FORI-1T03 

srem 

55 

1120 

PRINT"{GIU'}QUANTO SCOMMETTI" 

srem 

51 

11 25 

PRINT"SUL CAVALLO"?I;"{ 10 SPAZI}{ 10 SIN}" 

• 

f 

srem 

240 

1130 

INPUTI(I) 

srem 

56 

11 40 

RE=CR-1(1) 

srem 

63 

11 50 

IFRE>-0THEN1160 

srem 

143 

1155 

PRINT"{GIU'}NON HAI ABBASTANZA SOLDI!":FORT 

'= 1 TOl 000: 


NEXT 

srem 

158 

1157 

PRINT"{SU}{ 25 SPAZI}{ 5 SU}":GOTOl120 

srem 

60 

1160 

CR*CR-I(I)SPRINT"{HOME}{ 10 GIU'}POSSIEDI"; 

CR;"{SIN} 


DOLLARI{ 4 SPAZI}" 

srem 

90 

1170 

NEXTI 

srem 

81 

1180 

RETURN 

srem 

170 

1 200 

REM "SCHERMO* 

srem 

12 

1210 

PRINT"{CLR}" 

srem 

40 

1220 

PRINT"{HOME}{ 16 GIU'}" 

srem 

1 85 

1230 

PRINT"{GIU'}" 

srem 

168 

1240 

PRINT"{GIU'}" 

srem 

169 

1245 

PRINT:PRINT 

s rem 

32 

1250 

PRINT"{ 39 C}" 

srem 

78 

1260 

PRINT"QUOTE:{ 5 SPAZI}";P(1);TAB(18);P(2);TAB(25) 

JP( 


3) 

srem 

34 

1270 

PRINT”SCOMMESSE 2 I(1);TAB(18);I(2);TAB(25);I(3) 

srem 

47 

1280 

PRINTLEFTS(D$,T(l)-3);"{ 39 C}" 

srem 

246 

1290 

FORK-1T03 

s rem 

66 

1 325 

PRINTLEFT$(D$,T(K)+3)?"{ 16 SPAZl}NM{ 21 SPAZI}" 




srem 

244 

1 330 

PRINTLEFTS(D$,T(K)+4);"{ 39 C}" 

s rem 

11 

1 340 

NEXTK 

srem 

82 

1341 

PRINT"{HOME}" 

srem 

173 


1 342 F0RR“1TOl6:PRINTTAB(27);"{RED}{RVS}{ 10 SPAZl}[<+>] 
{OFFHCYN}" : rem 87 
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1343 

1344 

1350 
1360 
1 370 
1400 
1420 
1430 
1440 
1450 
1460 
2000 
2005 
2010 
2020 
2030 

2040 

2050 

2060 

2070 

2080 

2090 

2095 

2100 

2105 

2140 

2150 


NEXTR 

PRINTTAB(27);"{GRN}{RVS}{ 3 SPAZI}ARRIVO{ 
{OFF}{CYN}" 

PRINT"PREMI <RETURN> PER PARTIRE" 

GETA$: IFA$< >CHR$(13)THENl360 
RETURN 

REM *INIZIALIZZAZIONE* 

VN= 2 :DV=1 :VU=2 

Yl= 60:Y2=*1 00: Y3 = l 40 

CR=100:U1*14:U2»14:U3=14 

XI= 0 :X2 = 0:X3=0 

RETURN 

FORN=0TO62:READQ:POKE832+N,Q:NEXT 
FORN=OTO 62 :READQ:POKE89 6+N,Q:NEXT 
DATA0,0,0,0,0,0,0,0,0,0,0,24 
DATAO,0,52,0,0,126,0,0,246,3,255,224 
DATA7,2 55,1 92,1 5,255,1 28,31 ,255,1 28,38,1 , 

DATA76 
DATAO 
DATAO 
DATAO 
DATA7 



128 


128 


rem 

92 

SPAZI} 

rem 

157 

rem 

111 

rem 

102 

rem 

1 71 

rem 

208 

rem 

112 

rem 

32 

rem 

85 

rem 

35 

rem 

171 

rem 

139 

rem 

154 

rem 

55 

rem 

» 

229 

i 

rem 

1 61 

rem 

154 

rem 

45 

rem 

60 

rem 

► 

234 

rem 

166 

rem 

6 

rem 

54 

NEXT 

: POK 

rem 

83 

rem 

248 

: rem 

107 

: rem 

168 


Fantasmatico! 


CÒA 


Joystick 


In questo gioco sarai un prode 
guerriero con un compito molto 
pesante e pericoloso: eliminare i 
fantasmi che sono usciti dalle tom¬ 
be e vagano nei dintorni. Esistono 
due tipi di fantasmi: quelli rossi, in¬ 
furiati, che si muovono velocemen¬ 
te ed uccidono senza pietà chiun¬ 
que si trovi sulla loro strada, e 


quelli blu, più lenti ma altrettanto 
cattivi. 

Usa il joystick nella porta n. 2 per 
muoverti, ed il pulsante per difen¬ 
derti con la spada dai fantasmi. Ol¬ 
tre a tenere a bada gli spiriti, dovrai 
stare attento a non toccare l'ango¬ 
lo superiore sinistro dello schermo, 
da cui spuntano i fantasmi rossi, 
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altrimenti resterai fulminato. La 
partita termina se uno dei due fan¬ 
tasmi ti prende, oppure se quello 
rosso riesce a raggiungere te tom¬ 
be che si trovano nella parte bassa 
dello schermo,- in questo caso il 
tuo punteggio viene ridotto. Ricor¬ 


dati che guadagni più punti elimi¬ 
nando il fantasma rosso piuttosto 
che quello blu. Il gioco prevede 
quattro livelli di difficoltà. ' 

Ed ora mano alla spada e occhio 
alle lenzuola volantil 


10 PRINT"{CLR}":AG=0:POKE53281 ,0:POKE53280,0 
20 TI$*"000000"iRESTORE 
30 V B 53248 :POKEV+21,28 

40 POKE2042,194:POKE2043,195:POKE2044,196 


80 IFK>X-17ANDK<X+17THEN60 
90 IFK>L-17ANDK<X+17THEN60 
100 GOTO 111 0 
110 POKE53281,0:GOT0420 

120 JV-PEEK(56320):FR»JVANDl6:JV-15-(JVANDl5) 

130 SC-SC+VAL(TI$)-(AG*2):IFSC<0THENSC-0 

140 IFJV*1THENY*Y-CM 

150 IFJV-2THENY-Y+CM 

160 IFJV-4THENX-X-CM 

170 IFJV-8THENX-X+CM 

180 IFJV*5THENY»Y-CM:X»X-CM 

190 IFJV»6THENY*Y4CM:X-X-CM 

200 IFJV*9THENY*Y-CM:X«X+CM 

210 IFJV»10THENY*Y+CM:X=X4CM 

220 IFX>254THENX«X-15 

230 IFXOTHENX-X+15 

240 IFY>250THENY«Y-15 

250 IFY<1THENY-Y+15 

260 IFX>L-10ANDX<L+10THEN620 

270 IFY>R-10ANDY<R+10THEN640 

280 IFX>I-10ANDX<I+10THEN660 

290 IFY>K-10ANDY<K+10THEN680 

300 G-INT(2*RND(1))+l 

310 IFG*1THENL*L-INT(PM*RND(1))+5 

320 IFG«2THENL-L+INT(PM*RND(1))+5: 

330 IFL>200THENL»L-10 
340 IFL<5THENL**L+1 0 
350 G-INT(2*RND(1))+l 

360 IFG«lTHENR«R-INT((PM-2)*RND(1))+5: 

370 IFG-2THENR=R+INT((PM+2)*RND(1))+5: 

380 IFR>21OAND(L>140ANDL<208)THENl070 
390 IFR>230THENR-230 


rem 

131 

rem 

34 

rem 

223 

rem 

33 

rem 

219 

41 ,10 

rem 

136 

:Y = 100 

rem 

30 

rem 

71 

rem 

60 

rem 

141 

rem 

41 

rem 

163 

rem 

124 

rem 

13 

rem 

13 

rem 

16 

rem 

19 

rem 

249 

rem 

249 

rem 

244 

rem 

27 

rem 

3 

rem 

1 50 

rem 

4 

rem 

155 

rem 

1 57 

rem 

174 

rem 

157 

rem 

166 

rem 

113 

rem 

210 

rem 

12 

rem 

211 

rem 

115 

rem 

118 

rem 

205 

rem 

203 

rem 

124 

rem 

163 
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400 IFR<5THENR*R+10 :rem 130 

410 IFX<44ANDY<45THENPRINT"{GIU'}SEI FULMINATO 1"SFORF*!TO 
3000 :NEXT:POKEV+21,0:GOTO8tì0 :rem 35 

420 POKEV+4,X:POKEV+6,LsPOKEV+8,1 srem 45 

430 POKEV+5 f Y:POKEV+7,R:POKEV+9,K srem 58 

440 IF(L>X-10ANDL<X+10)AND(R>Y-15ANDR<Y+15)THENSC-SC+500: 

GOTO700 srem 116 

450 IF(I>X-10ANDI<X+10)AND(K>Y-15ANDK<Y+15)THEN700 


srem 

460 IFFR=16THEN490 srem 
470 IFFR016THENAG-AG+1 :IFAG*5THENJT*2 s rem 
480 IFL>200THENL*190 srem 
490 PRINT"{HOME}PUNTEGGIOs";SC:GOTO 120 srem 
500 POKEV+21,4 srem 
510 FORS2*12480TO12542 :READQ2 s POKES2,Q2s NEXT s rem 


520 FORS3*12544T012606sREAOQ3:POKES3,Q3s NEXTSGOTO60 


197 

49 

122 

153 

68 

8 

206 


srem 174 


530 DATA0,0,16,0,24,8,0,36,4,0,36,2,0,24,3,0,24,7,0,230,1 
4,1,129,252 srem 249 

540 DATA3,129,248,15,129,240,14,66,0,28,66,0,56,60,0,11 2, 
62,0,224,85,0 :rem 145 

550 DATA64,5,0,1,5,0,2,5,0,5,5,0,10,5,0,10,7,128 : rem 47 

560 DATA0,16,2,0,40,6,0,84,14,0,186,30,0,84,62,0,40,126,0 
,56,254,0,223,230 :rem 50 

570 DATAI,215,226,255,239,192,255,95,128,127,224,0,96,222 
,0,97,156,0 :rem 83 

580 DATA97,172,0,66,216,0,2,184,0,7,88,0,12,176,0,31,240, 
0,31,240,0 :rem 241 

590 DATA0,16,2,0,40,6,0,84,14,0,186,30,0,84,62,0,40,126,0 
,56,254,0,223,230 • srem 53 

600 DATAI,215,226,255,239,192,255,95,128,127,224,0,96,222 
,0,97,156,0 :rem 77 

610 DATA97,172,0,66,216,0,2,184,0,7,88,0,12,176,0,31,240, 



0,31,240,0 

:rem 

235 

620 

IFY< RTH ENR*R-EM:GOTO 280 

: rem 

234 

630 

R-R+EM:GOTO280 

: rem 

68 

640 

IFX< LTHENL*L-EM:GOTO 280 

:rem 

217 

650 

L*L+EM:GOTO280 

: rem 

58 

660 

IFY<KTHENK=K-EM:GOTO300 

:rem 

210 

670 

K«K+EM:GOTO420 

: rem 

54 

680 

IFX<ITHENI*I-EM:GOTO300 

: rem 

205 

690 

1*1+15:GOTO420 

: rem 

8 

700 

IFJT-2THEN830 

: rem 

253 

710 

IFRE* 2THENRE* 0 :GOTO12 0 

:rem 

102 

720 

IFFR< >16THENPRINT"{CLR}{GIU'}{PUR}L'HAI 

PRESO 1[<7>]" 



:rem 

106 

730 

IFFR*16THEN830 

: rem 

47 

740 

POKEV+21,0 

: rem 

10 

750 

FORU*ITO1000:NEXT 

••rem 

35 

760 

PRINTTAB(12)"{ 2 GIU'jMA NON E’ FINITA. 

..[<7>]"s SC=SC 


+1500 

: rem 

115 
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770 REM 

780 FORU-lTO3000:NEXT:AG=0:FR«16 :PRINT"{CLR}" 

790 L-25:R»60:RE=2 
800 I»INT(200*RND(l)+40):LETK-I 
810 IFI>X-20ANDI<X+20THEN790 
820 A$="S":GOTOl200 
830 FORRY*1TO10 

840 POKE53281 , 1 0 :FORT«*lTOl 00 : NEXT 
850 POKE53281,1:FORT=lTOl00:NEXT 
860 NEXT:POKEV+21,0 
870 PRINT"{CLR}{GIU'}[<3>]TI HA PRESOl[<7>]":FORC»lT03000 
:NEXT:GOTO890 
880 X*100 :Y=100 
890 POKE53281,0:PRINT"{CLR}":PRINT"PUNTEGGIO FINALE:[<3>] 
" ; SC ; " {GIU ' }" 

900 IFS020000THENPRINT" FANTASTICO l!":GOTO940 :rem 
910 IFSOl 0000THENPRINT" GRANDE !":GOTO940 
920 IFSC>5000THENPRINT" BUONO.":GOTO940 
930 IFSC<1000THENPRINT"POLLO II" 

940 PRINT"{ 2 GIU 1 }{YELjGIOCHI ANCORA (S/N)?" 

950 GETA$ : IFA$O"S"THEN970 
960 GOTO990 
970 IFA$<>"N"THEN950 
980 GOTO1040 

990 PRINT"{CLR}":SC=0:JT=0:AG=0 
1000 POKEV+21,0 

1010 I=INT(200*RND(1)+40):LETK=I:RE=2 
1020 L=25:R=60:IFI>X-20ANDI<X+20THENl000 
1030 FORNM= 1TO 2 0 0 0 :NEXT: TI$ = "0 0 0 0 0 0":SC = 0 :GOTO1200 

1040 POKEV+21,0 

1050 PRINT"{ 5 GIU 1 }CIAO1": FORT®1TO2000 :NEXT 
1060 SYS2048 
1070 POKEV+7,230 
1080 PRINT"{GIU'}{YEL}HAI PERSO 1 [<7>]":FORE=1T03000:NEXT: 

SC=SC-1000:POKEV+21,0:PRINT"{CLR}" 

1090 IFSC<0THENSC=0 
1100 GOTO890 

Ilio PRINT"{ 6 GIU 1 JDIFFICOLTA':{GIU'}" 

1120 PRINT"(I=IMPOSSIBILE/D=DURO/M=MEDIO/F=FACILE){GIU'}" 

1130 INPUTRT$ 

1140 IFRT$="F"THENEM=10:PM=5:CM®14 
1150 IFRT$="M"THENEM=12:PM=8:CM=12 
1160 IFRT$="D"THENEM=15 :PM=10:CM=10 
1170 IFRT$="I"THENEM=20:PM=15:CM=8 
1180 PRINT"{CLR}":PRINT:POKE53281,0 
1190 PRINT"{CLR}":FR=16:RE=2:FORTR=1TO100:NEXT 
1200 FORR=lT021:PRINT:NEXT 

1210 PRINTTAB(15)"{<5>]UI{ 2 SPAZI}Ul{ 2 SPAZI}UI" 


rem 

130 

rem 

107 

rem 

255 

rem 

251 

rem 

1 62 

rem 

9 

rem 

159 

rem 

235 

rem 

1 88 

rem 

134 

=1T03000 

rem 

217 

rem 

39 

.LE: 

[<3> ] 

rem 

106 

rem 

44 

rem 

208 

rem 

132 

rem 

134 

rem 

245 

rem 

241 

rem 

1 22 

rem 

1 09 

rem 

159 

rem 

1 83 

rem 

48 

rem 

101 

rem 

0 

70 

rem 

161 

rem 

52 

rem 

234 

rem 

1 48 

rem 

112 


rem 

234 

rem 

1 41 

rem 

156 

rem 

65 

) {GIU 

,}„ 

rem 

36 

rem 

31 

rem 

250 

rem 

5 

rem 

39 

rem 

5 

rem 

1 89 

rem 

199 

rem 

91 

176 

rem 

149 


25 



1220 PRINTTAB(15)"{ 2 -}{ 2 SPAZI}{ 2 -}{ 2 SPAZI} 

{ 2 :rem 82 

1230 PRINTTAB (1 5) " [< 2 £>]{ 2 SPAZI}[< 2 £>]{ 2 SPAZI} 

[< 2 £>]" :rem 21 

1240 PRINTTAB(15)"[< 2 +>]{ 2 SPAZI}[< 2 +>]{ 2 SPAZI} 

[< 2 +>]":POKEV+21,28:IFA$="S"THEN420 :rem 180 

1250 GOTOllO : rem 147 



Ecco uno dei più vecchi passatem¬ 
po del mondo in versione compu¬ 
terizzata. Il C64 sostituisce colui 
che normalmente prende in mano 
le redini del gioco estraendo i nu¬ 
meri e chiamandoli ad alta voce. Il 
programma ha memorizzate 24 
cartelle; per cui i giocatori possono 
essere al massimo 24. Al l'inizio si 
deve introdurre il numero e i nomi 
dei concorrenti; viene poi chiesto 
ad ognuno quante cartelle deside¬ 
ra (fino a 3) e quali. Ogni cartella 
ha infatti un "numero di matricola", 
e quelle disponibili sono contras- 
segnate dalle matricole 25-36 e 61- 
72. Gii volesse "personalizzare" il 
gioco può modificare le linee 
1002-1048, ognuna delle quali 
contiene un’istruzione DATA rela¬ 
tiva ad una cartella: il primo dato 
è la matricola della cartella, seguo¬ 
no i 5 numeri della prima riga, i 5 
della seconda e i 5 della terza. In 
seguito bisogna comunicare al 


computer la puntata (in lire) per 
una singola cartella, in modo che 
possa venire visualizzato l'importo 
che ogni giocatore deve pagare 
prima del l'inizio del gioco. È ne¬ 
cessario infine specificare se i pre¬ 
mi devono partire dall’ambo, dal 
terno, ecc. dopo di che inizia 
l’estrazione dei numeri. Il program¬ 
ma provvede a controllare ogni 
volta tutte le cartelle e segnala 
eventuali vincite, visualizzando il 
nome del concorrente e la matrico¬ 
la della cartella. In questo caso il 
gioco si ferma e viene emesso un 
segnale acustico; per proseguire 
premere "C". L'estrazione può es¬ 
sere in qualsiasi momento sospesa 
usando il tasto "S“ e fatta riprende¬ 
re con “C“. Premendo quest’ultimo 
tasto dopo che è stata segnalata la 
tombola, viene infine mostrata la 
spartizione del "montepremi" tra i 
vari giocatori. 


0 REM 

**************************** 

:rem 

172 

2 REM 

* 

TOMBOLA PER C 64 

* 

2 rem 

12 

4 REM 

* 

DI 

* 

:rem 

249 

6 REM 

* 

ANTONIO COLONNA 

* 

2 rem 

144 

10 REM**************************** 

2 rem 

221 
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n 

POKE53280,2:POKE53281,2 

:rem 

187 

12 

PRINT" {CLRHWHT}ATTENDERE.PREGO I" :rem 

236 

14 

REM (INIZIALIZZAZIONE VARIABILI) 

:rem 

0 

16 

CLR 

:rem 

72 

18 

DIMNR(384),CA(72),NC(90),N$(24),V$(99),Fl(24),OC%(72) 



:rem 

105 

19 

POKE54296,15 

:rem 

53 

20 

H$(2)-"AMBO{ 4 SPAZI}":H$(3)*"TERNA{ 3 SPAZI}":H$(4)=" 


QUATERNA":H$(5)-"CINQUINA" 

:rem 

40 

22 

H$(6)-"TOMBOLA " 

:rera 

230 

24 

F0RI-1T0384:READNR(I)sNEXT 

:rem 

79 

26 

S$-"{HOME}{ 23 GIU'}" 

:rem 

250 

28 

REM (IMMISSIONE DATI) 

jrem 

190 

30 

GOSUB256 

:rem 

128 

32 

INPUT" {HOME} { 12 GIU'H 3 SPAZI}- 

NUMERO GIOCATORI 

IN 


GARA "?G 

:rem 

240 

34 

IFG<1ORG>24THEN32 

:rem 

202 

36 

FORI-1TOG:PRINT"{HOME}{ 17 GIU'}{ 

3 SPAZI}- NOME GIOCA 


TORE "> 

:rem 

100 

38 

PRINT"{ 15 SPAZI}{ 15 SIN}"I;sINPUTNS(I)sNEXTsrem 

66 

40 

FORI-1TOG 

:rem 

236 

42 

GOSUB2 56 SPRINT" {HOME} { 9 GIU'H 3 

SPAZI}- ABBINAMENTO 


GIOCATORI{ 2 SPAZI}CARTELLE" 

:rem 

116 

44 

F-0 

:rem 

27 

46 

PRINT"{ 2 GIU'} - QUANTE CARTELLE 

VUOI, "N$(I)" 

SINP 


UTF 

2 rem 

174 

48 

IFF<10RF>3THEN42 

:rem 

155 

50 

TC-TC+FsIFTC>24THEN92 

:rem 

223 

52 

FORT-1TOF: FI (I)-F:V-V+l 

srem 

70 

54 

PRINT"{ 2 GIU'} "T"{SIN}) CARTELLA NUMERO ";:INPUTCA(V 


) 

:rem 

8 

55 

IFCA(V)>0ANDCA(V)<73THENIFOC%(CA(V))-1THEN62 srem 

44 

56 

FORTI-1T0369STEP16 

:rem 

45 

58 

IFCA (V) -NR (Tl ) THENV$ (CA (V) ) -"SV" Si 

0C%(CA(V))--1STI - 

369s 


NEXTTl:GOTO64 

:rem 

170 

60 

NEXTTl 

:rem 

42 

62 

CA(V)-0sV-V-lSGOT042 

srem 

90 

64 

NEXTT 

srem 

253 

66 

IFF-1THENV-V+2 sGOTO70 

:rem 

254 

68 

IFF-2THENV-V+1 

: rem 

38 

70 

F0RII»lT072s0C%(II)-ABS(OC%(II))s 

NEXTII sNEXTI sretn 

249 

72 

GOSUB256 

2 rem 

134 

74 

PRINT"{HOME}{ 11 GIU'}{ 3 SPAZI}- 

PUNTATA{ 2 SPAZI}PER 


{ 2 SPAZI}OGNl{ 2 SPAZI}CARTELLA 

" srem 

176 

76 

INPUT"{ 2 GIU'}{ 5 SPAZI}LIRE ";Q 

sretn 

27 

78 

FORI-1TOG 

2 rem 

247 

80 

PP-Fl(I)*Q 

sretn 

209 

82 

PT-PT+PP 

sretn 

186 

84 

PRINT"{HOME}{ 17 GIU'}{ 39 SPAZI} 

" . srem 

113 

86 

PRINT" {HOME} { 17 GIU'} { 3 SPAZ'l}- 

PUNTATA DI "N$(I)" £ 


"PP 

sretn 

150 


27 




88 GOSUB284 :rem 142 
90 NEXTI :rem 241 
92 GOSUB256:PRINT" {HOME} { 9 GIU'H 3 SPAZI}**** 

{ 2 SPAZI}SELEZIONE DI PARTENZA{ 2 SPAZI}****{GIU'}" 




srem 

64 

94 F0RI=2T06 


srem 

229 

96 PRINT"{GIU'}{ 2 SPAZI}"I"{SIN}) = "H$(I) 

srem 

231 

98 NEXTI 


srera 

249 

100 PRINT"{ 2 GIU'}{ 3 SPAZI}* SI PARTE 

PER 

";SINPUTSW 



srem 

242 

102 IFSW<20RSW>6THEN92 


srem 

147 

104 PRINT" {SU } "TAB (18) H$ (SW) 


srem 

239 

106 GOSUB284 


srem 

181 

108 PRINT"{CLR}{GIU'}{YEL}{ 4 SPAZI}! 2 

3 4 

5 6 7 8 9 

0 


{ 2 SPAZI}{ 3 GIU'}{WHTjORA SI VA PER" :rem 237 

110 PRINT" { 2 SU } {GRN } { 3 SPAZI } [<A>] M<R>] M<R>] * [<R>J* 
[<R>] M<R>] M<R>] M<R>] M<R>] M<R>] M<s>] {yelT" 

~ ~ :rem 97 

112 FORI=0TO8 * :rem 12 

114 PRINTI " {GRN}-_ - - - - ------- :rem 77 

116 PRINT"{ 3 SPAZI}T<Q> T*+*+*+*+*+*+*+*+*+* [<W>]{YEL}" 

srem 152 

118 NEXTI : PRINT" {SU} {GRN} { 3 SPAZI } [<Z>] * [<E>] * [<E>]^_ 
[<E>]M<E>] M<E>] M<E>] M<E>] * 1<E>] *T<E>]^T<X>] " 

srem 255 

120 REM (ESTRAZIONE NUMERO CASUALE) srem 160 

122 DW=0:IFSW=7THEN232 srem 74 

124 GOSUB278 srem 184 

126 X=INT(RND(1)*90)+1 srem 191 

128 IFX*NC(X)THENl26 srem 193 

130 FORI=0TO80STEPl0 srem 217 

132 IFX<I+11THENM=1 1 86+(80*1/10) s GOTOl36 srem 12 

134 NEXTI srem 32 

136 1 = 1 + 1 :M=M+2:IFXOITHENl 36 srem 224 

1 38 1 = 80 s NEXTI srem 76 

140 NC(X)*X:GOSUB270:POKEM,81:POKEM+54272,1 srem 68 

142 PRINT"{HOME}{ 6 GIU'}{WHT}"TAB(25)H$(SW) srem 220 

144 PRINT"{ 5 GIU ' } {YEL} "TAB (29) "U { 4 Ml{GIU'}{ 6 SIN}- 
{ 4 SPAZI}-{GIU'}{ 6 SIN}J{ 4 *}K{SUT{ 5 SIN}{WHT}"X 


146 

REM (TEMPORIZZATORE) 

srem 

srem 

158 

31 

148 

FORTE=TC*250T06000 sNEXT 

srem 

148 

150 

REM (CONTROLLO SCHEDE) 

srem 

51 

1 52 

FORI-OTO23 

srem 

61 

154 

IFV$(NR((16*1)+1))="SV"THEN1 58 

srem 

99 

156 

GOTO200 

srem 

103 

158 

IFSW=6THEN186 

srem 

24 

160 

FORO=0TO2 

srem 

15 

162 

C = 0 

srem 

73 

164 

T=(16*I) + (5*0)+l 

srem 

221 

166 

FORD=lT05 

srem 

14 
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168 

T-T+1 

: rem 

224 

170 

IFNR(T) ONC (NR(T) ) THENl 74 

:rem 

216 

172 

C-C+1 

:rem 

185 

174 

NEXTD 

srera 

31 

176 

IFCOSWTHENNEXTO : GOTO200 

srem 

86 

178 

0=2 

srera 

94 

180 

NEXTO 

srera 

39 

182 

GOTO208 

srem 

110 

186 

C=0 

srera 

79 

188 

FORO»ITO!5 

srem 

78 

190 

T* (16*1) -K) 

srem 

208 

192 

IFNR(T) ONC (NR (T) ) THENl 96- 

srem 

224 

194 

C-C+1 

srera 

189 

196 

NEXTO 

srem 

46 

1 98 

IFC-15THEN206 

srem 

222 

200 

NEXTI 

srem 

26 

202 

IFDW-lTHENSW-SW+1 

s rem 

72 

204 

GOTO!20 

srem 

98 

206 

REM (RICERCA NOME VINCITORE) 

s rem 

168 

208 

W2=0 

srem 

144 

210 

F0RW=1TOG 

srem 

41 

212 

F0RW1-1T03 

srem 

72 

214 

W2»W2+1 

srem 

66 

216 

IFNR ((16*I)+1) OCA (W2 ) THEN228 

s rem 

67 

218 

PRINTSS" CARTELLA"NR((16*1)+1)"DI "N$(W) 

" f, H$ (SW) 



• 

srem 

57 

220 

NV$(SW)=NV$(SW)+N$(W)+" " 

srem 

11 

222 

W»G:Wl=3 

srem 

163 

224 

GETA$ : GOSUB270 : IFA$0"C"THEN224 

srem 

38 

226 

GOSUB286 

srem 

1 86 

228 

NEXTWl,W:DW*1 

srem 

41 

230 

GOTO200 

srem 

96 

232 

REM (CALCOLO VINCITE) 

srem 

219 

234 

GOSUB256 

srem 

1 82 

236 

PRINT"{HOME}{ 9 GIU'H 3 SPAZI}**** { 4 SPAZI }VINCITE 


{ 4 SPAZI}FINALI{ 4 SPAZI}****{GIU'}" 

srem 

62 

238 

FORI-2TO6 

srem 

21 

240 

P=INT(PT/10*(1/2)) 

srem 

184 

242 

IFNV$(I)=""THENDP-DP+P:P=0:G0T0246 

srem 

31 

244 

IFI-6THENP-P+DP 

srem 

176 

246 

PRINT"{GIU'} - "H$ (I)" £"P;NV$(I) 

srem 

62 

248 

NEXTI 

srem 

38 

250 

PRINT"{ 2 GIU*} * TOTALE{ 3 SPAZI}£"PT 

srem 

19 

252 

GOSUB284 

srem 

183 

254 

RUN 

srem 

144 

256 

REM (INTESTAZIONE) 

srem 

111 

258 

PRINT" {CLR}{ 2 GIU'HYELH 3 SPAZI} [< 3 

+>] 



{ 2 SPAZI}[< 3 +>]{ 2 SPAZI}[<+>] [<+>]{ 2 SPAZI} 

l< 3 +>]{ 2 SPAZI}[< 3 +>] { 2 SPAZI}[<+>]{ 4 SPAZI} 

[< 3 +>}" :rem 111 
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260 PRINT"{ 4 SPAZI}[<+>]{ 3 SPAZI}[<+>] [<+>]{ 2 SPAZI} 

[< 3 +>]{ 2 SPAZI}[<+>] [<+>]{ 2 SPAZI}[<+>] [<+>] 

{ 2 SPAZI}[<+>]{ 4 SPAZI}[<+>] [<+>] :rem 181 

262 PRINT"{ 4 SPAZI}[<+>}{ 3 SPAZI}[<+>] [<+>}{ 2 SPAZI} 

[<+>} [<+>H 2 SPAZI} [< 3 +>]{ 2 SPAZI} [<+>] [<+>] 

{ 2 SPAZI}[<+>]{ 4 SPAZI}[< 3 +>]" :rem 127 

264 PRINT"{ 4 SPAZI}[<+>]{ 3 SPAZI}[<+>] [<+>]{ 2 SPAZI} 


[<+>] [<+>]{ 2 SPAZI}[<+>] [<+>]{ 2 SPAZI}[<+>} [<+>] 

f O \ r /x\1 / A CTJR7T 1 r /x\ 1 f/xSl 11 • ram R 1 



{ 2 SPAZI}[<+>]{ 4 SPAZI}[<+>] [<+>]" 

trem 

53 

266 

PRINT"{ 4 SPAZI}[<+>]{ 3 SPAZI}[< 3 +>]{ 2 

SPAZI} 



[<+>} [<+>]{ 2 SPAZI}[< 3 +>]{ 2 SPAZI}(< 

3 +>] 



{ 2 SPAZI}[< 3 +>]{ 2 SPAZI}[<+>] [<+>]{WHT}" 




:rem 

122 

268 

RETURN 

:rem 

128 

270 

REM (SUONO) 

:rein 

98 

272 

Xl=INT(RND(1)*60)+30 

: rem 

33 

274 

POKE54280,XltPOKE54285,240tPOKE54283,17 

:rem 

186 

276 

FORI=lTOl00tNEXTtPOKE54283,OtRETURN 

:rem 

207 

278 

REM (ATTESA) 

:rem 

152 

280 

GETA$11FA$ < >"S"THEN2 8 8 

: rem 

239 

282 

PRINTS$" ATTENDO..!1 PER CONTINUARE PREMI 

(C)" 




: rem 

129 

284 

GETA$tIFA$<>"C"THEN284 

: rem 

223 

286 

PRINTS$"{ 38 SPAZI}" 

:rem 

232 

288 

RETURN 

: rem 

130 

1000 REM (NUMERI CARTELLE) 

:rem 

1 8 

1002 DATA25,4,21,44,63,86,9,27,30,54,75,12,33, 

59,69,90 



trem 

151 


1004 DATA26,13,34,42,67,80,19,39,52,73,87,6,22,45,55,79 

:rem 212 

1006 DATA27,14,23,41,62,81 ,1 8,37,56,78,82,2,24,48,66,88 

:rem 213 

1008 DATA28,7,25,40,68,85,1 1 ,36,51,70,89,1 5,29,46,53,74 

:rem 213 

1010 DATA29,1 ,26,43,61 ,84,3,1 6,31,58,71,5,28,35,64,76 

:rem 95 

1012 DATA30,10,32,50,72,83,8,20,47,60,77,17,38,49,57,65 

treni 196 

1014 DATA31,10,31,43,66,83,1,22,32,54,71,15,29,47,59,74 

treni 187 

1016 DATA32,14,34,52,60,80,5,23,46,73,85,17,37,42,67,88 

trenti 204 

1018 DATA33,6,24,44,61,82,11,38,53,72,90,9,28,49,68,79 

trem 168 

1020 DATA34,16,21,33,51,75,3,25,45,64,81,7,19,39,55,78 

trem 150 

1022 DATA35,2,20,40,63,70,12,35,56,69,84,4,26,48,58,76 

trem 150 

1024 DATA36,13,30,50,62,86,18,36,57,77,87,8,27,41,65,89 

trem 221 
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1026 DATA61 ,2,26,40,64,81 ,9,29,46 r 72,87,1 0 # 39,50,68,88 

:rem 165 

1028 DATA62,12,30,52,73,82,8,25,42,53,90,18,36,59,67,77 

:rem 211 

1030 DATA63#5,21,41,66,80,17,33,$4,74 r 85,1 9,24,45,69,89 

:rem 212 

1032 DATA64,1 5,32,55,71 ,83,3,23,37,60,75,16,38,49,58,65 

:rem 209 

1034 DATA65,11,31,44,61,86,1,20,34,57,70,7,27,47,63,78 

:rem 148 

1036 DATA66,1 3,22,43,62,84,4,14,35,51 ,76,6,28,48,56,79 

:rem 162 

1038 DATA67,13,33,42,63,80,5,29,47,64,72,14,37,55,76,89 

:rem 221 

1040 DATA68,12,35,43,61,83,1,17,38,51,75,4,25,46,69,87 

:rem 158 

1042 DATA69,7,22,39,53,79,15,24,40,56,67,19,28,41 ,59,85 

:rem 223 

1044 DATA70,11,32,58,71,81,6,20,48,60,88,18,30,54,65,77 

:rem 203 

1046 DATA71,2,21,45,62,73,3,26,49,66,82,16,34,52,78,84 

:rem 159 

1048 DATA72,10,31,50,70,86,8,23,44,68,90,9,27,36,57,75 

:rem 162 



la prima rivista europea 
di personal computer, 
software, accessori, 
la più prestigiosa 
e più diffusa in Italia 

con tutta la competenza del 







in via Mascheroni 14. 

la prima software 
libreria italiana 

Un tempo si andava in libreria per il gusto della 
scoperta, per il piacere di esser informati sulle novità. 
Per incontrarsi, discutere, chiedere un consiglio al 
libraio-amico. Tutto questo è ancora possibile, per un 
prodotto assolutamente nuovo: libri e riviste di 
informatica italiani ed esteri, software, giochi. 

Dove? Alla Libreria JACKSON. 

La prima software - libreria italiana. 


A Milano, in via Mascheroni 14. 

TBL 02-437385 

Vieni a trovarci : ti aspettiamo. 




